home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 28 / PC Gamer IT CD 28 1-2.iso / MEDIA / REVIEWS.DXR / Internal_24.ls < prev    next >
Encoding:
Text File  |  1997-12-01  |  2.4 KB  |  69 lines
  1. on mouseUp
  2.   global gTB, gAlpha
  3.   puppetSound(1, 0)
  4.   puppetSound(1, "pioolb")
  5.   set errCode to mGoNext(gTB)
  6.   if errCode = 0 then
  7.     put mGetField(gTB, "appname") into field "appname"
  8.     put mGetField(gTB, "highs") into field "highs"
  9.     put mGetField(gTB, "lows") into field "lows"
  10.     put mGetField(gTB, "BottomLine") into field "BottomLine"
  11.     put mGetField(gTB, "Rating") into field "Ratings"
  12.     put mGetField(gTB, "AlphaSortKey") into field "alphsortkey"
  13.     put field "Ratings" & "%" into field "Rating"
  14.     put field "AlphSortKey" into field "AlphaKey"
  15.     put mGetField(gTB, "CoName") into field "CoName"
  16.     put mGetField(gTB, "Address") into field "Address"
  17.     put mGetField(gTB, "City") into field "City"
  18.     put mGetField(gTB, "State") into field "State"
  19.     put mGetField(gTB, "Zip") into field "Zip"
  20.     put mGetField(gTB, "Phone") into field "Phone"
  21.     put mGetField(gTB, "Phone2") into field "Phone2"
  22.     put mGetField(gTB, "email") into field "email"
  23.     set currRec to mGetPosition(gTB)
  24.     put currRec into field "totalRecs"
  25.   else
  26.     beep()
  27.   end if
  28. end
  29.  
  30. on UpdateDown
  31.   global gTB, gAlpha
  32.   puppetSound(1, "pioolb")
  33.   mSetCriteria(gTB, "AlphSortKey", "start", field "alphaKey")
  34.   mSelect(gTB)
  35.   set n to mSelectCount(gTB)
  36.   if n <> 0 then
  37.     put n into field "NumberFound"
  38.     put mGetField(gTB, "appname") into field "appname"
  39.     put mGetField(gTB, "highs") into field "highs"
  40.     put mGetField(gTB, "lows") into field "lows"
  41.     put mGetField(gTB, "BottomLine") into field "BottomLine"
  42.     put mGetField(gTB, "Rating") into field "Ratings"
  43.     put mGetField(gTB, "AlphSortKey") into field "AlphSortKey"
  44.     put field "Ratings" & "%" into field "Rating"
  45.     put char gAlpha of field "alphaBet" into field "alphakey"
  46.     put mGetField(gTB, "CoName") into field "CoName"
  47.     put mGetField(gTB, "Address") into field "Address"
  48.     put mGetField(gTB, "City") into field "City"
  49.     put mGetField(gTB, "State") into field "State"
  50.     put mGetField(gTB, "Zip") into field "Zip"
  51.     put mGetField(gTB, "Phone") into field "Phone"
  52.     put mGetField(gTB, "Phone2") into field "Phone2"
  53.     put mGetField(gTB, "email") into field "email"
  54.   else
  55.     CheckAlphaSearch()
  56.   end if
  57.   showSelection()
  58. end
  59.  
  60. on CheckdownKey
  61.   global gAlpha
  62.   set gAlpha to gAlpha + 1
  63.   if gAlpha > 26 then
  64.     set gAlpha to 1
  65.   end if
  66.   put char gAlpha of field "alphaBet" into field "alphakey"
  67.   UpdateDown()
  68. end
  69.